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Editorial *....**«. 

Explicación de los programas 
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Apenas han transcurrido unos decenios (más de tres pero menos 
de cuatro) t desde la aparición del primer “ordenador” totalmente 
electrónico, el Eníac. que funcionaba con válvulas de vacío y 
ocupaba varias aulas de la Universidad de Pensílvania. 

Sin embargo, hoy los niveles de integración parecen no tener 
límites y ello nos ha conducido a Ja aparición de pequeños 
ordenadores personales a precios tan asequibles que están 
barriendo el mercado. 

Esto, unido a los grandes avances en temas de programación, 
hace que cada día cobre más 
importancia el microordenador personal 

Por ello, nosotros pensamos que actualmente es necesario conocer 
el mundo del ordenador, saber manejarlo, ya que éste puede ser 
usado como un instrumento intelectual, de distracción y de relax 
mental, a través de la infinita variedad de programas posibles. 

En este número encontrarás diferentes tipos de programas que 
pondrán a prueba tus reflejos mentales y tu dominio de la máquina. 
Esperamos que te guste. 

Hasta el próximo mes. 






























































































































































































































































































































































COMENTARIO DE LOS PROGRAMAS DE SOFTSPECTRUM: 

PROGRAMAS DE LA CARA A: 

1. SUMARIO 

2. CUCO: Este es un juego muy sencillo de jugar, donde tu misión es dar de comer al cuco del 
reloj del salón, cuando éste abra su pico, puesto que si lo tiene cerrado desperdiciarás la co¬ 
mida. 

Para lanzar la comida puedes emplear cualquier tecla. 

Recuerda que a los cinco fallos perderás, puesto que tu pequeño y fiacucho cuco morirá 
de hambre. Por cada trozo de comida que consigas introducir en su pico te supondrán 5 pun¬ 
tos. 

3. NEVERA: Con la llegada del verano has aprovechado la ocasión para montar tu puesto de 
helados y poder ganar así unas pesetas. Has de llevar los cubitos de hielo a la nevera para 
preservar a los helados del calor. Si no los llevas antes de que la temperatura alcance los 30- 
grados tu negocio se arruinará. El termómetro de la pantalla te indicará la temperatura am¬ 
biente. 

Los controles son: O. Arriba. A. Abajo. O. Izquierda. P. Derecha. 

4. TRANS’SPAIN: Recorre con tu vehículo preparado los numerosos paisajes de fa geografía 
española. Durante tu recorrido deberás recoger las bolsas de dinero, puesto que de ello de¬ 
penderá tu puntuación. 

Para repostar combustible acude a ¡as gasolineras. 

Ante todo ten mucho cuidado de no estrellarte contra los obstáculos del terreno puesto 
que te producirán averías que incrementarán considerablemente el consumo de combustible. 

Los controles son: Q. Arriba. A. Abajo. O. Izquierda. P. Derecha. 

5. TRAGABOLAS: En este juego tú tendrás que introducir la bola que se mueve en la parte 
inferior de la pantalla de izquierda a derecha y de derecha a izquierda, en la gran boca del 
tragabolas. 

Por cada acierto se te premiará con 15 puntos, pero a los 5 fallos serás descalificado. 

Para lanzar la bola recuerda que has de emplear la tecla que desees del teclado. 

6. ONDAS: Con este programa podrás comprobar que escuchar la radio puede resultar a veces 
muy difícil. Tu misión en este juego, consiste en recoger con tu radio, las cintas de cassette, 
y las ondas enviadas por la emisora, pero sin tocar en ningún momento las interferencias, pues¬ 
to que a los cinco fallos tu radio se estropeará. 

La tabla de puntuaciones es la siguiente: 


ONDA NORMAL. .. .5 PUNTOS 

CINTA DE CASSETTE . 25 PUNTOS 

INTERFERENCIA ..1 FALLO 


Los controles de la radio son: O. Izquierda. P, Derecha, 

7. GUSANO: En este programa tendrás que ayudar a un gusano hambriento, que quiere comer¬ 
se todos los caramelos que hay repartidos por el suelo de ia habitación, pero haciéndolo de 
tal forma que el gusano no choque contra los muros de ladrillos o contra sí mismo. 

Cada caramelo que recojas sumará a tu puntuación, 5 puntos. Dispones de cuatro vidas 
para conseguirlo. 

Los controles son: Q. Arriba. A. Abajo. O. izquierda. P. Derecha. 

8. CAFE: Puede resultar muy relajante tomarse una buena taza de café, pero con este juego 
comprobarás que no resulta muy fácil el hacerlo. Has de recoger con tu taza los granos de 
café que caen de la parte superior de la pantalla antes de que sean molidos por las cuchillas 
del molinillo. 

Los controles son: i. Izquierda. P. Derecha. 

Cada grano te suma 5 puntos, y sólo con menos de diez fallos puedes continuar jugando. 
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PROGRAMAS DE LA CARA B: 

9. PIRAMIDE: Te encuentras en el antiguo Egipto y tu misión consiste en construir ladrillo a 
ladrillo, la pirámide del faraón Ramses ti. Pero cuidado con los enemigos del faraón, que te 
impedirán en todo momento el terminar tu trabajo. 

Por cada piedra que coloques el faraón te dará 10 puntos. 

Los controles son: Q. Arriba. A. Abajo. O. Izquierda. P. Derecha. SPACE. Para coger y sol¬ 
tar las piedras. 

10. MANSION: Una vez más tu osadía te lleva a enfrentarte a una peligrosa misión. Tu deseo 
de alcanzar la riqueza te ha conducido hasta la mansión del profesor CHIFLANCIO protegida 
por numerosas trampas preparadas por éste, para que no puedas llegar a tu objetivo. 

La mansión está dividida en tres pisos a los cuales podrás acceder activando los pasadi¬ 
zos secretos que las comunican. 

Los controles son: Q. Arriba. A. Abajo. O. Izquierda. P. Derecha. 

¡¡¡TE DESEAMOS MUCHA SUERTE EN TU INTENTO!!! 

11. CUERPO HUMANO: £1 programa didáctico de este mes tiene por título, “EL CUERPO HU¬ 
MANO” y nos ayuda a aprender las localizaciones por aparatos, de diversos órganos y partes 
de nuestro cuerpo. Las opciones de las que dispone son ias siguientes: 

0. Comentario breve sobre el tema tratado. 

1. Cuestionario que consta de 20 preguntas sobre este tema y a las que deberemos res¬ 
ponder si pertenece a! sistema respiratorio, al circulatorio o al digestivo. 

2. Listar datos. Con esta opción es posible visualizar ios datos sobre los que trabaja el 
cuestionario. 

3. Terminar. Para salir del programa. 

1 2. SUPERGEN: Te ofrecemos en esta ocasión un completo generador de caracteres gráficos 
bastante completo. Sus posibilidades son las siguientes: 

Movimiento del cursor con teclas 5, 6, 7 y 8. 
imprimir un punto con 9 y borrarlo con 0. 

i. Para introducir un carácter en memoria. Si deseas introducirlo en un UDG recuerda que 
has de ponerlo en modo gráfico (G). 

P. Imprime un carácter de ia memoria en la celdilla para su modificación. 

R. Rota el dibujo de la celdilla 90 grados a la derecha. 

E. Espejo, el carácter de la celdilla cambia su imagen como si ésta estuviese reflejada en 
un espejo. 

C. (cls) Borra ia celdilla. 

T. Invierte el dibujo de la celdilla. 

S. Graba en cassette los gráficos creados. 

L. Carga los gráficos del cassette. 

B. Permite la introducción de un carácter en binario para su representación en la celdilla. 
0. Igual que B, pero con datos decimales. 

Como podrás comprobar a parte de los UDGs normales existe también un banco gráfico 
aparte, que amplia considerablemente la cantidad de gráficos disponibles para el usuario. Pa¬ 
ra saber cómo usarlo, lee atentamente nuestra sección de ideas de este mes. 

13. TRUCOS: 1: Este programa es un conjunto de trucos (10 en total) que esperamos ampiien 
tus horizontes en el campo de !a programación. Son trucos tales como simular la sentencia 
NEW, centrar textos en pantalla, poner el border multicolor, etc. 

Éi programa demuestra cómo funciona cada truco, pero para ver el listado de los mismos 
pulsa N. 

Lo fundamental de los trucos se encuentra en brillo 1, para que los puedas distinguir fá¬ 
cilmente de ios REM en ios que se comenta su función. 

¡¡¡Seguro que alguno te será útil!!! 

14. MINI-DESENSAMBLADOR: Este es un programa de utilidades que se sensambla una zo¬ 
na de la memoria (la que tu desees) excepto las instrucciones que llevan prefijos. 

Los controles del programa se indican detalladamente en la presentación. 

15. CABECERAS: Este programa es un lector de cabeceras. Con él podrás obtener información 
acerca de las cabeceras de los programas, tal como dirección de comienzo, longitud, etc. 

El programa incorpora una subrutina en C/M que realiza e! mismo trabajo y que puedes 
usar a parte. 
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- SOFTSPECTRUM: 

Como todos sabréis el Spectrum permite definir 21 gráficos para su uso en programas, pero 
a la hora de distinguirlos no podemos emplear la función SCREENS, sino que nos vemos obligados 
necesariamente a usar la función ATTR que nos limita en ocasiones el aspecto del programa res¬ 
pecto al colorido. 

Pero no todo esta perdido (tal vez exageramos un poco), ya que nos es posible redefinir en 
la RAM un nuevo banco gráfico en sustituición al que actualmente disponemos, en el que podemos 
reconocer los caracteres generados con SCREENS puesto que se trata de los gráficos normales 
de los que dispone el ordenador. La forma de hacerlo, es cambiando la dirección de memoria a la 
que apunta la variable del sistema CH ARS (23606-7 decimal), al lugar de la RAM donde hemos alma¬ 
cenado los nuevos caracteres. 

El programa SUPERGEN incluido este mes en nuestra selección de programas nos permite 
generar el mencionado banco gráfico. Para acceder a ellos hemos de cambiar el valor de CHARS 
de la forma en que comúnmente lo hacemos: 

POKE 23606.0 

POKE 23607,250 

Para tener de nuevo los caracteres normales haremos: 

POKE 23606.0 

POKE 23607,60 

El programa trabaja sobre un banco situado en la dirección de memoria 64256, pero si tú reubl- 
cas los gráficos a otra parte de la RAM ten en cuenta que has de almacenar en CHARS la dirección 
del conjunto de caracteres menos 256 (que comienza por un espacio y llega hasta el signo de copy¬ 
right). 

Para grabarlo en cassette emplea: 

SAVE “NOMBRE" CODE 64256,768 
y para cargarlo escribe: 

LOAD “NOMBRE” CODE 64256. 


CUCO 


2 CLS 

3 PRINT AT 9,0 

4 LET AÍ="PARA LA-CINTA": GO SUB 9200 
10 LET L=USR 23464 

20 FOR A=0 Tü 21*3 

30 POKE 65089+A,PEEK (23296+A) 

40 NEXT A 
50 POKE 23658,8 ' 

60 BORDER O 
70 PAPER 0 
80 INK 7 
90 CLS 
100 LET FA=0 
110 LET AC=0 
120 GO SUB 8000 

1000 LET Y=5+INT (RND*22) : LET D=1+INT (RND*2) 


1010 LET X 
1100 IF D= 
0=2 

=21 

l THEN 

PRINT AT 

’ X ,Y k" : LET 1 

'=Y + 1: IF Y>26 THEN BEEP .004,30: LET 

1110 IF D= 

■2 THEN 

LET Y=Y- 

•1 : PRINT AT X ,Y ; 

! "k ": IF Y<5 THEN BEEP .004,30: LET D 


= 1 

1120 IF INKEYÍO"" THEN BEEP .01,40: GO TO 2000 
1500 GO TO 1100 




2000 PRINT PAPER 8; INK 3; QVER 1 ;AT X,Y;"k": LET X = X-1 
2010 PRINT PAPER 8; INK 7; OVER 1;AT X,Y;"k" 

2020 IF X<8 THEN GO TO 3000 

2030 EEEP .01,X: 80 TO 2000 

3000 IF Y<14 OR Y>17 THEN GO TO 4000 

3010 BEEP .2,10: LET AC=AC+1 

3020 LET 0=0: FOR A=1 Tü 40: BEEP .002,A: GO SUB 5010: NEXT A 

3100 GO TO 120 

4000 BEEP 1,-10: LET FA=FA+1 

4010 FOR A=40 TO O STEP -1: BEEP ,002,A: GO SÜB 5000: NEXT A 
4100 GO TO 120 

5000 PRINT AT 3,14; INK 8; OVER 1; PAPER RND*7;" ": RETüRN 


NEVERA 


tttttt 

1 IF INKE Y $<>'"* TH 
EN GO TO 9999 

2 CLS 

3 PRINT AT 9,0 

4 LET A$="PARA LA CINTA": GO SÜB 9200 
10 LET L=USR 23464 

20 FOR A=0 TO 21*8 

30 F'OKE 65089+A ,F'EEK (23296+A) 

40 NEXT A 

50 LET P=0: F'OKE 23658,8: LET N=0 
■ CLS ; PRINT AT 10,6; "PULSA -S- PARA 


EMPEZAR" 


r: í_^ 

IF INKEY$-<>"S" 

AND 

INKE Y í < > 11 s 

" THEN GO TO ! 

56 

60 

LET t=9S 







70 

LET X = 1 C>: LET 

!3 

CO 

LET 

XB=X : 

LET 

YB=Y 


SO 

LET LL=0 







90 

GO SUB 8000 







100 

LET 00=0 







110 

LET 0=0 







490 

BEEP 1 ,5 







500 

IF INKEYÍ="Q" 

THEN 

LET 

X=X-1 

: IF 

X<0 THEN 

LET X=0 

510 

IF INKEYÍ="A" 

THEN 

LET 

X 

II 

X 

: IF 

X >21 THEN 

LET X=21 

520 

IF INKEY$="0" 

THEN 

LET 

Y = Y—1 

: IF 

Y<8 THEN 

LET Y=B 

530 

IF INKEY$="F'" 

THEN 

LET 

Y=Y + 1 

: IF 

Y>31 THEN 

LET Y=31 

540 

LET Bt=SCREENÍ (X,Y) 

THEhí 




545 

IF LL=1 THEN 

IF Bí 

= N e" 

LET 

X=XB: LET 

Y~YB: BEEP -005 

550 

IF LL=0 THEN 

IF Bí 

—; 11 0 Éí 

THEN 

LET 

LL=1: LET 

F-P+5: BEEP -02 

560 

IF Bí>"f" AND 

B$< "o 

" THEN LET X= 

XB: LET Y= 

YBs BEEP .005,0 

570 

IF X=14 THEN 

IF Y— 

8 AND LL=1 

THEN PRINT AT 15,8;""; BEEP 


1/50 


=0; LET C0=C0+1: LET P=P+10: GO SUB 7000: BEEP 
>=N THEN FOR A=0 TO .60 STEP 3: BEEP 1/30,A: NEXT 
600 PRINT AT XB , YB ; " " ¡AT X,Y;"f" 


1/50,10; 


GO 


PRINT AT 
TO 60 


610 

615 

620 

9000 

900 

7000 

7010 

8000 

8010 

3020 


LET XB=X: LET YB=Y 

LET C=C+1: IF 08 THEN LET 0=0 

PLOT INK 8;11 ,T : IF C=5 THEN LET 


T=T+1 : IF T>15B THEN BEEP 1 


GO TO 500 

PRINT AT 14,1; INK 4;P;" " 

RETÜRN 

LET N=N+5: SORBER 7; PAPER 7 
INK 0; CLS : PRINT AT 12,0;"PUNTOS" 
PRINT AT 15,0;" n 

jHELADOS h J 

j h 


GO SUB 7000 

miiiiiiiiig 


,20: LET LL 
8; "n" : IF CO 


,-10: GO TO 


FRAMY h 


Innnnnnnnnk 
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8030 PRINT INK 2¡¡AT : 

2,1;' 

"a" ;i 

3,1 ; "I 

D" 

;AT 4,1; "b " ; AT 

5,1 ; "b” 

; INK 1 ; 

AT 6,1 

h 

AT 7,1 ; "b" ;AT 

8,1; INI 

K 0; 

"b." ;i 

AT 9,1;" 

d" 

:AT 10,1;"c" 
i2;"10 " ;ÁT 9,2 





8040 PRINT AT 
8050 FOR A— 1 

Qinn BCTI IBM 

3,2;"30 
TO N: GO 

'* ; AT 
SUB 

5,2 

850< 

; "20" ; AT 
D: NEXT 

7 

A 

; 11 0" 









8500 LET XX = INT <RND#: 

22) : 

LET 

YY = Í1 + INT 

< RND*21) : IF 

SCREENÍ 

ÍXX 5 YY) < 

¡>“‘ " THEN 


GO TD 8500 

8510 PRINT AT XX,YY; ,, ‘ 1 : RETURN 
9000 POKE 23693,7: BORDER O: CLS 

9010 PRINT AT 4,0: LET aí="GAME ÜVER"! GQ SUB 9200 
9020 LET A$=“TU PUNTUACION: "+STRÍ ÍP); GO SUB 9200 
9030 GO SUB 9100 

9040 LET A$="OTRA PARTIDA: (S/N)" : GO SUB 9200 

9050 IF INKEYÍ= "S" OR lNKÉY$= u s’ 1 THEN RUN 50 

9060 IF INKEY$="n" OR INKEYí="N" THEN RANDQMIZE USR O 

9070 GO TO 9050 

9100 DATA .5,—3,.55,-3,.2,—3,.65, — 3,.5,0,•25, — 1,.5,-1,.25,~3,.5, — 3,.25,-4,. 7 - j, 

9110 RESTORE 9100 

9120 FOR a=l TO 11 

9130 READ aa,aaa 

9140 BEEP aa,aaa 

9150 NEXT a 

9160 RETURN 

9200 LET b$=" 

9210 INK 2+RND*5: LET c=LEN a*+2: LET b=16-c/2 
9220 PRINT TAB (b);bí< TO c) 

9230 PRINT TAB (B);" "i INVERSE 1; PAPER 9;aí; INVERSE O;" " 

9240 PRINT TAB <b);b$ÍTO c) 

9250 PRINT 
9260 RETURN 

9998 OLEAR : LOAD ""SCREENÍ 

9999 SAVE "NEVERA"CODE 16384,PEEK 23627+256#PEEK 23628-16382: GO TD i 
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TRANS-SPAIN 

__ 


2 CLS 

3 PRINT AT 9,0 

4 LET A$="PARA LA CINTA": GO SUB 9200 
10 LET L=USR 23464 

20 FOR A-Ó TO 21*3 

30 POKE 65089+A ,F'EEK C23296+A) 

40 NEXT A 
50 POKE 23658,8 
60 BORDER O 
70 PAPER O 
80 INK 7 
90 CLS 
100 LET FA=0 
110 LET AC~0 
120 GO SUB 8000 

1000 LET Y=5+INT (RNP*22) : LET D*1 + INT (RND*2> 

1010 LET X=21 

1100 IF D=1 THEN PRINT AT X,Y;" k " : LET Y = Y + 1 : IF Y>26 THEN BEEP .004,30: LET 
D=2 

1110 IF D=2 THEN LET Y=Y-1: PRINT AT X,Y;"k ": IF Y<5 THEN BEEP .004,30: LET D 
= 1 

1120 IF INKEYíO"" THEN BEEP .01,40: GO TO 2000 
1500 GO TO 1100 

2000 PRINT PAPER 8; INK 3; OVER 1;AT X,Y;"k" : LET X=X-1 
2010 PRINT PAPER 8: INK 7; OVER 1;AT X,Y¡"k" 





























2020 IF XÍB THEN B0 TD 3000 

2030 BEEP .01,X: GO TO 2000 

3000 IF Y<14 OR Y>17 THEN GO TO 4000 

'Kiin Deep r> i t’i ■ i pt ¿ir=Ar+í 

3020 LET C=0: FOR A=1 TO 40: BEEP .002,A: GO SUB 5010: NEXT A 

3100 GO TO 120 

4000 BEEP 1,-10: LET FA=FA+1 

4010 FOR A =40 TO O STEF' -l": BEEP .002,A: GO SUB 5000: NEXT A 
4100 GO TO 120 

5000 PRINT AT 3,14; INK 8; OVER 1: PAPER RND*7;". ": RETURN 

5010 IF C=3 THEN PRINT AT 6,14; INK 3; OVER 1; PAPER 3;" "; OVER 0;AT 7,14; 

FAPER 2 ■ " " 

5020 !>’0=6 THEN PRINT AT 6,14; INK 7; OVER 1; PAPER 2;" '■ ; OVER 0:AT 7,14;" 

ii 

5025 LET 0=0+1 : IF 06 THEN LET 0=0 
5030 RETURN 

8000 PRINT AT 0,13;" de d 

DRAW BIN P IF INKEYÍO"" THEN GO TO 9999 


TRAGABOLAS 


1 IF INKEY$<C>"" TH 
EN GO TO 9999 

2 CLS 

3 PRINT AT 9,0 

4 LET AÍ=“PARA LA CINTA": GO SUB 9200 
10 LET L=USR 23464 

20 FOR A=Q TO 21*8 

30 POKE 65089+A,PEEK (23296+A) 

40 NEXT A 
50 POKE 23658,8 
60 BORDER O 
70 PAPER O 
80 INK 7 
90 CLS 
100 LET FA=0 
110 LET AC=0 
120 GO SUB 8000 

1000 LET Y=5+INT (RND*22) : LET D=1 + INT (RND*2) 

1010 LET X=21 

1100 IF D=1 THEN PRINT AT X,Y;" k" : LET Y=Y+1 : IF Y>26 THEN BEEP .004,30: LET 
D=2 

1110 IF D=2 THEN LET Y=Y-1 : FRINT AT X,Y;"K IF Y<5 THEN BEEP .004,30: LET D 
= 1 

1120 IF INKEYÍO"" THEN BEEP .01,40: GO TO 2000 
1500 GO TO 1100 

2000 PRINT PAPER 8; INK 3; OVER 1;AT X,Y;"k": LET X=X-1 
2010 PRINT PAPER S; INK 7; OVER 1;AT X,Y;"K" 

2020 IF X<8 THEN GO TD 3000 

2030 BEEP .01,X: GO TO 2000 

3000 IF Y<14 QR Y>17 THEN GO TO 4000 

3010 BEEP .2,10: LET AC=AC+1 

3020 LET C=0: FOR A=1 TO 40: BEEP .002,A: GO SUB 5010: NEXT A 

3100 GO TO 120 

4000 BEEP 1,-10: LET FA=FA+1 

4010 FOR A=40 TO O STEF’ -1: BEEP .002,A: GO SUB 5000: NEXT A 
4100 GO TO 120 

5000 PRINT AT 3,14; INK 8; OVER 1; PAPER RND*7;" ": RETURN 

5010 IF C=3 THEN PRINT AT 6,14; INK 3; OVER 1; PAPER 3;" "; OVER 0;AT 7,14; 

PAPER 2;" 
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5020 IF 06 THEN 

i? 

PRINT AT 6 ,14 5 

INK 7; OVER 1; PAPER 2;" 

1 "; DVER 0;AT 7,14;" 

5025 LET C=C+1 : IF 06 THEN LET 
5030 RETURN 

8000 PRINT AT 0,13;" 

CBIN F IF INKEYÍO"" THEN GO TO 

C=Ü 

i 9999 

d e 


£ 

i 


ONDAS 


2 CLS 

3 PRINT AT 9,0 

4 LET A$="PARfl LA CINTA": GO SÜB 9200 
10 LET L=USR 23464 

20 FDR A»0 TO 21*8 

30 POKE 650S9+A,PEEK (23296+A) 

40 NEXT A 

50 DATA 33,129,92,70,195,0,14 
60 RESTDRE 50 
70 FDR A=30000 TO 30006 
SO READ B: POKE A,B 
90 NEXT A 
95 POKE 23681,19 
100 POKE 23658,8 

110 CLS : PRINT AT 10,5; "PULSA -S- PARA EMPEZAR" ¡AT 13,15;"b";AT 
120 IF INKEYí < >"S" THEN BEEP .005,RND*40: GO TO 120 
130 BORDER 7; PAPER 7 
140 INK O: CLS , 

150 PRINT AT 0,0; PAPER 3,,,,,, 

160 LET P=0: LET FA=0 

170 GD SUB 7000 

900 LET Y=15: LET YB=Y 

1000 IF INKEYÍ="0" THEN LET Y=Y- 1 : IF Y<0 THEN LET Y=0 

1010 IF INKEY$="P" THEN LET Y=Y+1: IF Y>30 THEN LET Y=30 

1020 LET 0=1NT <RND*5): LET 00=INT <RND#32) 

1030 IF Oíl THEN PRINT AT 21,00; ,, e" 

1040 IF 0=1 THEN PRINT AT 21,0Q;"h" 

1050 IF O>2 THEN PRINT AT 21,00;"f" 

1060 LET BÍ=SCREEN$ (7,Y) 

1062 IF B¡M"h" THEN BEEP .005,40: LET F-P+25: GO SUB 7000 

1064 IF Eí="e" THEN BEEP .005,30: LET F=P+5: GO SUB 7000 

1066 IF THEN BEEP .5,-10: LET FA=FA+1: GO SUB 7000 

1070 LET BÍ=SCREENÍ <7,Y+1> 

1072 IF Bí="h" THEN BEEP .005,40: LET p=P+25: GO SUB 7000 

1074 IF Bí="e" THEN BEEP .005,30: LET R=P+5: GO SUB 7000 

1076 IF THEN BEEP .5,-10: LET FA=FA+1 : GD SUB 7000 

1100 PRINT AT 5 , YB ; " " ;AT 6 ,YB;" " ;AT 6 ,Y;"ab“;AT 7,Y;"cd" 

1110 LET YB=Y 

1120 LET L=USR 30000 

2000 GD TO 1000 

7000 PRINT PAPER 8 ; INK 9;AT 1,3:"PUNTOS : ";P;AT 1 ,20;"FALLOS: 
7010 IF FA>5 THEN GO TO 9000 
7020 RETURN 

9000 POKE 23693,7: BORDER 0: CLS 

9010 PRINT AT 4,0: LET a$="GAME OVER": GD SUB 9200 
9020 LET A$="TU PUNTUACION: "+STRÍ CP> : GO SUB 9200 
9030 GO SUB 9100 

9040 LET A$="OTRA PARTIDA: CS/N)" : GO SUB 9200 

9050 IF INKE Y í = " S" DR lNKEYÍ="s" THEN RUN 95 

9060 IF INKEY$="n“ OR INKEY$="N" THEN RANDQMIZE USR O 

9070 GO TO 9050 

9100 EiAT A .5,—3,.55, —3, . 2 , —3 , • 65 , —3 , .5,0, . 2o , — 1 , .5,-1 , • 25 , — 3 , .5,-3 


1 4, 1 5; " d " 


FA 


.25,-4,.75,-3 






9110 RESTORE 9100 
9120 FGR a=l TO 11 
9130 READ as 
9140 BEEF' aa,aaa 
9150 NEXT a 
9160 RETURN 
9200 LET b$=" 

9210 INK 2+RND*5: LET c=LEN a$+2: LET b=16-c/2 
9220 F'RINT TAB (b);bí( TO c) 

9230 PRINT TAB (&);" " ; INVERSE 1; PAPER 9;a$; INVERSE O;" “ 
9240 PRINT TAB <b);bí( TO c) 


9250 PRINT 
9260 RETURN 

9998 OLEAR : LOAD “"SCREENÍ 

9999 SAVE “ONDAS' 1 CODE 16334,PEEK 


23627+256 *F'EEK 2362S-163S2: GO TO 1 


1 IF INKEYtO" 11 THEN GO TO 9999 

2 CLS 

3 PRINT AT 9,0 

4 LET A$="PARA LA CINTA" : GO SUB 9200 
10 LET L=USR 23464 



20 FOR A"O TO 21*8 

30 POKE 65089+A,PEEK (23296+A) 

40 NEXT A 


50 POKE 23658,8 

60 CLS : PRINT AT 10,6; "PULSA -S- PARA EMPEZAR" 

70 IF INKEYÍ<>"5" THEN GO TO 70 
BO FOR A=0 TO 31 

85 IF SCREENí <10,A) O" " THEN BEEP 1/50,0 
90 PRINT AT 10,A;"a": NEXT A 
100 FOR A=0 TO 31: PRINT AT 10,A;" BEEP 1/50,A: 
110 CLS 


NEXT A 




A remitir a SOFT-SPECTRUM - Ci. Bailén, 20. 1.° Izda. 28005-Madrid. 


Deseo suscribirme a los 1 1 números de la revista Soft-Spectrum por sólo 2.500 pts. 
a partir del próximo número. 


El importe lo haré efectivo: 

□ Por giro postal n.°. 

□ Por talón nominativo adjunto. 

□ Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 

Nombre y apellidos: . 

Domicilio:. 

Ciudad: 

Fecha: 


Teléfono: 
. Firma: . 





















120 
130 
140 
150 
200 
210 
220 
230 
300 
310 
320 
330 
400 
410 
420 
430 
500 
1000 
000 
1010 
1020 
1030 
1040 
1050 
7000 
7010 
7020 
SOCO 
8010 
8020 


B=4 

D=2 

D=1 


LET P=0: LET V=4 
LET C0=0: LET D=1 
LET X = 10 : LET Y*15 
GO SUB 8000: GO SUB 7000 
IF INKEYÍ= ,, Q" THEN LET D=3 
IF lKFKEY$= M A" THEN LET 
IF INKEYÍ="0 11 THEN LET 
IF INKEY$="P" THEN LET 
IF D=1 THEN LET Y=Y+1 
IF D=2 THEN LET Y—V-í 
IF D=3 THEN LET X = X-1 
IF D=4 THEN LET X-X+l 
LET BÍ=SCREENÍ (X,Y) 

IF BÍ-"a" ÜR Bí="b" THEN 80 TG 1000 
IF B$="c" THEN 
RRINT AT X , Y ; " 

GG TO 200 
PRINT OVER 1; 




BEEF 1 1/100,30: LET P=P+5: GO SUB 7000 


FLASH 1; INK 


OVER 1 
(RND#1S) 


PRINT AT X,Y 
LET X=2+INT 
LET Y=INT <RND*31) 

IF SCREENÍ (X , Y)<>"c" 
GO TO 200 
PRINT AT 1,10; 

IF V<1 THEN 
RETURN 

BGRDER 0: PAPER 
INK 7: CLS 
PRINT AT 0,0; 


' £ 

t;AT X, 

,Y: 

} u 11 : BEEP Í/2,^3 

LO: LET V 

J=\ 


1 : G( 

D í 

3UB : 

1 0 

>; INK 

S ; 1T ,r 






FLASH 


THEN GO TG 1020 


GQ 


INK 

TO 

O 


8;P;AT 
9000 


1 ,25; V 


bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb PUNTOS: 


bb VIDAS: 


bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb ’’ 


8030 
8040 
8100 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9100 
9110 


FOR A=3 TG 20 
PRINT AT 21,0 
RETURN 

POKE 23693,7: 

PRINT AT 4,0: 

LET A$="TU PUNTUACION 
GO SUB 9100 
LET Aí="OTRA PARTIDA: 
IF INKEY$="S" 

IF INKEYÍ="n" 

GO TQ 9050 
DATA .5,-3, .55,-3, 
RESTORE 9100 


PRINT AT A ,0 ; "bccccccccccccccccccccccccccceccb " : NEXT A 
"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" 


BORDER 0: CLS 
LET aí="GAME OVER" : 

"+STRÍ ÍPJ 


OR 

OR 


CS/N) 
INKEY$="s" 
INKEYí="N , ‘ 


’ : GO 
THEN 
THEN 


GO SUB 9200 
i Gü SUB 9200 

SUB 9200 
RUN 50 

RANDQMIZE USR O 


2 ,-3,.65,-3, 


, 0 , 


25,-1,.5,-1,.25,-3,-5 


,-4,,75,-3 


i—/ 

SPECTRUM 

Bailén, 20 - I o - Izda. 


28005 MADRID 
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& 

5 

5 

5 
í 

6 
& 
5 
¡> 

a 

a 

9 

5 

a 

* 

9 

9 

9 

> 

9 

9 

9 

9 

9 

9 

9 

9 

i 


9120 
9130 
9140 
91 SO 
9160 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9999 
9999 


FOR a =1 TO 11 
READ aa T aaa 
BEEP aa,aaa 
NEXT a 
RETURN 
LET bí= n 






INK 2+RND*5: LET c=LEN aí+2: LET b=ló-c/2 
FRINT TAB (b);bí( TO c) 

PRINT TAB <B) : INVERSE i; PAPER 9;aí; INVERSE 0:" 11 

PRINT TAB (b);bf ( TO c) 

PRINT 

RETURN 

OLEAR s LOAD ""SCREENf 

SAVE "GUSANO"CODE 16384.PEEK 23627+256*PEEK 23628-163B2: GO TO 1 


4 • - 


CAFE 




1 IF IJNKEYÍO"" THEN GO TO 9999 

2 CLS 

3 PRINT AT 9,0 

4 LET A*="FARA LA CINTA": GO SUB 9200 
10 LET L-USR 23464 

20 FOR A=0 TO 21*8 

30 PQKE 65089+A,PEEK (23296+A) 

40 NEXT A 
50 POKE 23658,8 
60 LET P=0: LET FA=0 
70 GO SUB 8500 
100 DIM MÍ16) 

105 FOR A =1 TO ló 

106 LET MÍA)=3: NEXT A 
110 LET Y=1 1 : LET YB=Y 
190 GO SUB 1000 

200 IF INKEY$="I" TREN LET Y=Y-1 : IF Y <8 THEN LET Y =8 

210 IF INKEYÍ="P" THEN LET Y~Y+l : IF Y>22 THEN LET Y=22 

220 LET N=1+INT <RND*16): LET Nl=7+N 

230 PRINT AT NÍN),N1;" " ;AT ñ (N> + 1,N1;"c": LET MÍN)=M(N)+1 
240 IF M(N)>19 THEN GO SUB 1500 

245 PRINT AT ' 19,YB;" " ;AT 19,Y;"ab" 

246 LET YB=Y 

250 IF MÍY~7)«18 THEN LET N=Y-7: GO SUB 1600 

260 IF M(Y—6)=18 THEN LET N=Y-Ó: GO SUB 1600 

500 GD TO 200 
1000 BORDER 6 : PAPER 7 
1010 INK O: CLS 

1020 PRINT AT 0,0: ¿APER 4; INK O,,,,,, 

1030 GO SUB 7000 
1040 FOR A»3 TO 21 

1050 PRINT AT A ,0; " 111111 i 1 “ ;AT A ,24 ; 11 11111111" 

1060 NEXT A 

1070 PRINT AT 21 ,8 ; “kkkktíkkkkkkkkkkk " 

1080 BORDER ó 
1090 RETURN 

1500 PRINT AT 20,N+7;"i": BEEP .05,-10: PRINT AT 20,N+7:" ": LET FA=FA+1: GO SUB 
7000: LET MÍN)=3 
1510 RETURN 

1600 LET Aí="cde-fg" : FOR A=1 TO LEN A$ : PRINT INK 3;AT 18 ,N+7; A$ (A) : BEEP 1/50, 
30: PAUSE 10: NEXT A 

1610 LET M <N)=3: LET P=P+5: GO SUB 7000: RETURN 
2000 RETURN 

7000 PRINT AT 1,3; PAPER 8 ; INK O:"PUNTOS: " ;P;AT 1 ,17 ; "FALLOS: ";FA 
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7010 

7020 

8500 

8510 

8520 

8530 

8540 

3550 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9998 

9999 


CLS : PRINT AT B,6;"*ULSA -S- PARA EMPEZAR" 


IF FA>9 THEN GO T0 9000 
RETURN 

BORBER 7: PAPER 7: INK O 
PRINT AT 11,15 ; "ab" 

LET A$='’hi jhijhi jhi j " „ 

POKE 23658,8: FOR A=1 TO LEN AÍ-2 ST^P 2: PRINT AT 10,15¡ASÍA TO A+l) 

PAUSE 10: IF INKEYÍ="S" THEN RETURN 

NEXT A; GO TQ 8520 

POKE 23693,7: SORBER O: CLS 

PRINT AT 4,0: LET a$="GAME OVER": GO SUS 9200 
LET Aí="TU PUNTUACION: "+STRÍ (P): GO SUB 9200 
GO SUB 9100 

LET A$="OTRA PARTIDA: ÍS/N)": Gü SUB 9200 
IF INKEY#=‘'S" OR INKEY$="s" THEN RUN 50 
IF INKEYÍ="n“ OR INKEYÍ="N" THEN RANDOMIZE USR O 
GO TO 9050 

DATA .5,-3,.55,-3,.23,.65,-3, .5,0,.25,-1, 

RESTORE 9100 
FOR a=l TO 11 
READ aa,aaa 
BEEF' aa,aaa 
NEXT a 
RETURN 
LET b$=" 

INK 2+RND*5: LET c=LEN aí+2: LET b=16-c/2 
PRINT TAB (b):bí( TO c) 

PRINT TAB (B)INVERSE 1; PAPER 9;a$; INVERSE O;" 

PRINT TAB (b);bí( TG c) 

PRINT 
RETURN 

ELEAR : LOAD ""SCREENÍ ,„„„ „„ 4 

SAVE '‘CAFE"CODE 16384,PEEK 23627+25ó*PEEK 23628-1633¿: GO TO 1 


1,-1,.25,-3,.5,-3,.25,-4,.75,-3 



1, ^FglNKEY'íO"" THEN GO TO 9999 

3 PRINT AT 9,0 

4 LET A$="PARA LA CINTA": GQ SUB 9200 

10 LET L=USR 23464: * FOR A=0 TO 21¡*8: POKE 65089+A ,PEEK (23296+A) : NEXT A 

11 POKE 23653,8 

15 CLS : PRINT AT 10,5;"PULSA -S- PARA EMPEZAR" 

16 IF INKEYÍO"S“ THEN' GO TO 16 
20 POKE 23653,8 

30 BORDER 6 : PAPER 6 : INK O: CLS : LET F=250: LET F-0: GO SUB 3ü00 
90 LET XX=10: LET YY=16: LET C$="b" 

LET XB=XX: LET YB=YY 

THEN LET Cí= ,, a" : LET XX = XX-1 : IF XX<1 THEN LET 


IF T=81 


LET C*="a": LET XX=XX+1 
LET C$="b" : LET YY=YY-l 


95 

100 LET T=PEEK 23560: 

XX*21: GO SUB 1000 
110 IF T=65 THEN 
120 IF T=79 THEN 
130 IF T=80 THEN LET ««"b" 

135 BEEP .002,20 

200 LET B*=SCREEN$ (XX,YY) 

210 IF B#>"b" AND THEN BEEP 1,-10: GO TO 9000 

220 IF B$="u" THEN BEEP .008,30: LET F=F+50: GO SUB 3000 

230 IF Bí="t 11 THEN BEEP .005,40: LET F-P+25: GO SUB 3000 


LET YY=YY+l 


IF XX>21 THEN 
IF YY<0 THEN 
IF YY>31 THEN 


LET XX=1; 
LET YY=31: 
LET YY=0! 


GO SUB 1000 
GO SUB 1000 
GO SUB 1000 


240 LET F=F—1: PRINT AT 0,22; INK 0;F;" 
ABO EL FUEL": BEEF 2,0: GO TO 9000 
400 PRINT AT XB , YB ; " " ;AT XX, YY; INK 0;( 


IF F<1 THEN PRINT AT 10 ,7;"SE TE AC 


410 LET XB—XX : LET YB=YY 
490 BEEP .002,10 
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500 GO T0 100 

1000 BORDER 6: PAPER 6: INK 0: CLS 
(RND*6) s LET Bi=AÍ (1+INT (RWD*ll)) 

GO TO 1100 
NEXT A 

LET Bí="u 
LET B$="t 


GO SUB 3000: LET Aí="cdefglnoprs": INK INT 


GO SUB 8000 
GO SUB 8000 


1010 IF RND> .5 THEN GO SUB 2000: 

1020 FOR ñ*1 TO 30: GO SUB 8000: 

1100 IF RND>.7 THEN 
1110 IF RND>.2 THEN 
1500 RETURN 

2000 GO TO 2100+100#INT (RND#6) 

2100 FOR A=1 T,0 5: LET X = 1 + INT (RND* 19) 

T X +1 , Y ; " k " : NEXT A: RETURN 

2200 FOR A=1 TO 21: PRINT AT A,12;"oonaoopoo": NEXT A: RETURN 
2300 GO SUB 2200: PRINT AT 10,0,,,,,,: RETURN 

2400 PRINT AT 8,0 ; "oooopoooooooaaoaoooaooooQOoaQOOOOOOOoaooooooooaoooooGoaoooooo 
ooonnnopnQnpopononpaprtopnonanpnonpoqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 
DRAW BIN P IF INKEYÍO"" THEN GP TO 9999 


LET Y=INT (RND*30) : PRINT AT X,Y;"hi";A 



1 IF INKEYÍO"" THEN GO TQ 9999 

2 CLS 

3 PRINT AT 9,0 

4 LET A*="PARA LA CINTA": GO SUB 9200 

5 PAUSE 200 

20 LET x=5: LET y=Ó: LET xb=x ; LET y b = y 

25 LET r =0 

30 LET xx=0 

40 LET vi=5: LET pu=Ó 

90 BORDER 6 : PAPER ó: INK O: CLS 

100 PRINT INK 2; PAPER 6 ;AT 0,0;" 

II 

101 PRINT INK 2; PAPER 6 ;AT 6,0;" 

ti 

102 PRINT INK 2; PAPER 6 ;AT 13,0;" 

II 

103 PRINT INK 2; PAPER 6 ;AT 20,0;" 

II 

104 PRINT INK 7; PAPER 1 ;AT 7,10;" F'UNTOSjÓOO " ;AT 14,11;" VIDAS:05 " 

105 FOR a=2 TO 12: PRINT INK 2; PAPER Ó;AT a,30;" NEXT a 

106 FOR a=2 TO 4: PRINT INK 2; PAPER 6 ;AT a,0;"' " : NEXT a 

107 FOR a=9 TO 19: PRINT INK 2; PAPER 6 ;AT a,O;" NEXT a 

108 FOR a=16 TO 17: PRINT INK 2; PAPER 6 ;AT a,29;" ": NEXT a 

110 PRINT INK 1 ;AT 5,8;" " jA«T 3,18;" " ;AT 2,23;"’" ;AT 3,25;" " ; AT 4,21;" " ;AT 

Fi 11 

í11 PRINT INK 3;AT 4,5;" " 

112 PRINT AT 4 ,28 ; "" 

113 PRINT INK 3;ÁT 5,19;" " 

114 PRINT INK 3;AT 3,10;" ";AT 3,12;" ";AT 3,14;" " 

120 PRINT INK 1;AT 11,28;" ";AT 9,24;" ";AT 10,20;" ";AT 12,20;" ";AT 9,16;" " 
;AT 12,12;" ";AT il,9;" ";AT li, 6 ;" " ;ÁT 11,4;" ";AT 10,4;" ";AT 9,4;" " 

121 PRINT AT 9,2;"" 

122 PRINT INK 3;AT 10,25;" ";AT 10,22;" ";AT 10,13;" " 

123 PRINT INK 3;AT 12,14;" 

124 PRINT INK 3;AT 10,9;" ";AT 12,7;" " 

130 PRINT INK 1 ;AT 18,3;" *'^AT 17,13;" " ;AT 19,13;" " ;AT 17,16;" ";AT 19,17;" 

";AT 16,20;" ";AT 19,20;" ";AT 17,21;" " ;AT 17,24;" " ;AT 19,24;" ";AT 19,28;" " 

131 PRINT INK 3;AT 16,9;" ";AT 18,9;" ";AT 17,6;" ";AT 19,6;" " 

132 PRINT INK 3;AT 19,18;" ";AT 19,22;" " 

133 PRINT INK 3;AT 17,26;" " 

134 PRINT AT 1.8,29;"" ;AT Í9,29;"" 

200 IF x <6 THEN LET g = 1500: LET xl=4: LET dl = l: LET x2=3: LET d2=l : LET y 1=19: 
LET d3=l 
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300 IF INKEY$="p" THEN 
310 IF INKEY$= "o'* THEN 
320 IF INKEY$="q" THEN 
330 IF INKEYÍ : ="ñ" THEN 


^10 IF x>9 AND x< 14 THEN LET g=2000: LET xx=0: LET xl«10: LET dl-lí LET x2-12: 

LET d2=-l: LET yl=9: LET d3=l : LET pu=pu+100 „, =19 . L ET d2= 

220 IF x>15 THEN LET g=2500: LET xx=U: LET xl-17: LET dl-1. LET 19. LL 

-1 : LET y 1=9: LET d3=l ; LET y2=6 : LET d4=l 

240 IF ATTR (x,y>=51 THEN GO SUB 3500 

241 IF ATTR <x,y)=49 THEN GO SUB 3500 

290 PRINT AT xb,yb;" '* 

29 1 if r=0 THEN PRINT AT x,y;" " 

292 IF r=i THEN PRINT AT x,y;’' " 

293 LET xb=x: LET yb=y _ „ 

- LET y=y+l : LET r=0: BEEP .005,5 

LET y=y-l: LET r=l:.BEEP .005,10: IF y<0 THEN LET y=0 

LET x=x-1: BEEP .005,15 
ir o 1 1 ¡un LET x=x + l : BEEP .005 ,20 

,500 IF ATTR (x,y>=176 THEN FQR a=pu TO pu+100: PRINT INK 7; PAPER 1 jAT ?,19;a 
: BEEP .005 ,RND#20': NEXT a: GO T0 3000 
600 IF xx=l THEN IF x>9 AND x<14 THEN GO TO 210 
650 IF xx =2 THEN IF x=16 THEN GO TG 220 

960 IF x = 18 AND y=29 THEN GO TO 4500 

970 IF ATTR <x,y)=51 THEN GO SUB 3500 

9S0 IF ATTR tx ,y ) =49 THEN GO SUB 3500 

990 IF ATTR (x,y)=50 THEN LET x=xb: LET y=yb : BEEP .05,0 
995 GO SUB g 
1000 GO TO 290 
1500 PRINT AT xl,5;" " 

1510 LET >: 1 — x 1+dl 

1520 IF x1 >4 THEN LFT dl=-l 

1530 IF x í <3 THEN LET dl = í 

1540 IF di —1 THEN PRINT INK 3;AT xl,5;" " 

1550 IF d1=1 THEN PRINT INK 3;AT xl,5;“ " 

1560 PRINT INK 6;AT x2,10;" " ;AT x2,12;" " ;AT x2,14;" " 

1570 LET x2=x2+d2 

1580 IF x2>4 THEN LET d2—1 

1590 IF x 2 < 3 THEN LET d2=l 

1600 PRINT INK 3;AT x2,10;” " ¡¡«'I x2,12; N " ;AT x 2,14 ;" 

1610 PRINT AT 5 , y 1 ; " ” 

1620 LET y l=yl+d3 

1630 IF yl<16 THEN LET d3=l 

1640 IF y 1 >24 THEN LET d3—1 

1650 IF d3=l THEN PRINT INK 3;AT 5,yl;" ” 

1660 IF d3=-l THEN PRINT INK 3;AT 5,yl;" 

1665 IF ATTR (x,y)=51 THEN GD SUB 3500 
1670 RETURN 

2000 PRINT AT xl ,18;” " ;AT xl,22;" " ;AT xl,25j" 

2010 LET x i=x1+dl 

2020 IF x1>i1 THEN LET dl=-l 

2030 IF xlClO THEN LET dl=l 

2040 IF d 1 = 1 THEN PRINT INK 3;AT xi,13;" " ;AT. xl,22;“ " ;AT xl,25;" 

2050 IF dl=-l THEN PRINT INK 3;AT xl ,18;" " jAT xl,22;" " jAT xl,25;" 

2060 PRINT AT x2,14;" " 

2070 LET x2=x2+d2 
2030 IF x2>l 1 THEN LET d2—1 
2090 IF x2<10 THEN LET d2=l 
2100 PRINT INK 3;AT x2,14;" " 

2110 PRINT AT 10, yl;" " ;AT 12,y 1-2;" " 

2120 LET y l=yl+d3 
2130 IF y 1 >12 THEN LET d3—l 
2140 IF yí<6 THEN LET d3=l 

2150 IF d3=-l THEN PRINT INK 3;AT 10,yl; 

2160 IF d3=l THEN PRINT INK 3;AT 10,yl;" 

2165 IF ATTR <x,y)=Sl THEN GO SUB 3500 
2170 RETURN 
2500 PRINT AT xl,26;" 

2510 LET xl=x1+dl 
2520 IF x 1 >,1.8 THEN LET dl=-l 
2530 IF x1< 17 THEN LET dl=l 
2540 PRINT INK 3;AT xl,26;" " 

2550 PRINT AT x2,22; M ";AT x2,18;" " 

2560 LET x2=x2+d2 
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- ii i» 


" " ;AT 12 , y1—L, 
";AT 12, y 1 “2 j" " 




















2570 IF 

>:2>18 THEN 

LET 

d 2 =-l 





2580 IF 

x 2<17 THEN 

LET 

d 2 = 1 





2590 IF 
2600 IF 

d2=l THEN PRINT INK 3; 
d2=-l THEN PRINT INK I 

¡AT X2,22 ;" " ¡AT 

! ;AT x2,22;" 11 ;A1 

x 2 ,18 
r x 2 ,18;" 

ir 

i ii 


ii?" 

ii 



. y 1 ;" 

¡ ii 















,2;" 

lt 



,y2;" 

f lí 





\z BORDER 6 

6; AT a,27;" 

": NEXT a: LET 


NE 


2610 PRINT AT 16,yl;" " ¡AT 13,yl;" " 

2620 LET y l=yl+d3 
2630 IF y 1>13 THEN LET d3=-l 
2640 IF yl<5 THEN LET d¡3=l 

2650 IF d3=l THEN PRINT INK 3;ñT 16,yl:" " ¡AT 18, y 1 ; " " 

2660 IF d3=-l THEN PRINT INK 3;AT 16,y 1;" " ; AT 18, yl;" 11 
2700 PRINT AT 17,y2;'‘ " ;AT 19, y 2 ; " " 

2710 LET y 2= y 2+d4 
2720 IF y2>l1 THEN LET d4=-l 
2730 IF y2<4 THEN LET- d4=l 

2740 IF d4=l THEN PRINT INK 3;AT 17, y 2;" *' ;AT 19,y2¡" " 

2745 IF d4=-l THEN PRINT INK 3;AT f7,y2¡" " ¡AT 19, a 2; " " 

2750 IF ATTR C>:, y )=51 THEN GO SUB 3500 
2800 RETURM 

3000 FOR a=l Tü 30: BEEP .01, a: BORDER RND* 6 : NEXT a: BORDER 6 

3010 IF >:= 4 THEN FQR a=6 TO 8: PRINT PAPER 6; INK 6;AT a, 27;" 

xj: = 1 

3011 IF x=9 AND y «2 THEN FOR a=13 TO 15; PRINT 
XT a: LET =2 

3020 GO TO 290 

3500 BEEP .3,10: BEEP ,5,5 

3510 LET vi—vi ~1 

3520 PRINT INK 7; PAPER 1¡AT 14,19;vi 
3530 IF vi<l THEN GO TO 4510 
3560 RETURN 

4500 PRINT AT 10,8;"£0 CONSEGUISTE": FOR A =1 TO 100: NEXT A 
4510 LET p=pu 

9000 POKE 23693,7: BORDER O: CLS 

9010 PRINT AT 4,0: LET a¡r="GAME OOER": GO SUB 9200 
9020 LET AÍ="TU PUNTUACION: "+5TRÍ CP): GO SUB 9200 
9030 GO SUB 9100 

9040 LET A$=‘'QTRA PARTIDA: CS/N): GO SUB 9200 

9050 IF INKEY$="S" OR INKEY$="s" THEN GO TO 10 

9060 REM IF INKE*í="n" OR INKEYi="N" THEN RANDOMIZE USR O 

9070 GO TO 9050 

9100 DATA .5,-3,.55,-3,.2,-3,.65,-3, .5,0, .25,-1 , .5,-1,.25,-3,.5,-3,.25,-4,,75,-3 


9110 RESTORE 9100 

9120 FQR a =1 TO 11 

9130 READ aa,aaa 

9140 BEEP aa„aaa 

9150 NEXT a 






9160 RETURN 

9200 LET b$s l! 

9210 INK 2+RNB*5: LET c= 
9220 PRINT TAB íb)¡¡b$í 1 
9230 PRINT TAB (B); M "; 

: LEN a*+2 
[0 c) 
INVERSE 

!: LET b = 

1 : PAFCE 

Id 

76-C/2 

! 9;aí ; I 

NVERSE 0 

i * J* " 

9240 PRINT TAB (b);bíí 1 
9250 PRINT 

'□ c) 





9260 RETURN 

9998 OLEAR : 

ROIA BGDO." 

9999 SAVE "MANSION"CODE 16384,PEEK 23Ó27+256*PEEK 23628-16382: GO TO 1 


LOAD '“'SCREENi : PRINT AT 5,6; INK 8 : PAPER 8 ; BRIGHT 8 ;"ANTONIO GA 
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SI PREFIERE SUSCRIBI 
POR .TELEFONO... 


. . iv Mfé. 


i ¡YA PUEDES COMPLETAR TU COLECCION!! 

DE 


Software Spectrum 


BOLETIN DE PEDIDO PARA NUMEROS ATRASADOS 


r - 

Des 
H cad 

I 
I 




Deseo recibir los siguientes números de SOFT SPECTRUM al precio de 375 ptas 
cada uno: 


Números: _J / ——/—— /■ 

Nombre y apellidos 




Domicilio . . . . * ^ - - » - -.. 

Código Postal . Ciudad . 

Fecha . Teléfono! ) 

El importe lo haré efectivo: 

□ Por giro postal n. 0 . 

□ Por talón nominativo adjunto. 


remitir a SOFT SPECTRUM. C/. Bailén, 20. 1.° Izqda. 28005 Madrid 


1 

I 

. .) 

I 

y 
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« LA LLUVIA 

• LA FRONTERA 

* ARTIFICIEROS 




375 

PTS. 


SUMARIO 


• 30 S. SOBRE TOKIO 

• URSUSS 

• TORRETA 

• PRECISION 

• TIRO AL PLATO 

• JOYERIA 
NERGIA 








■ \ 


■ 



















MEJORES RECUERDO 


